home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 02 - 1986 / 02.09 Sep 86.sit / 02.09 Sep 86 / basic source / Random Sample < prev   
Encoding:
Text File  |  1986-07-25  |  1.3 KB  |  46 lines  |  [TEXT/MSBB]
  1. ' Random Access File
  2. ' ©MacTutor 1986
  3. ' This program creates a sample Random Access File
  4.  
  5. Integer%=5: Single!=32769!: Double#=123456789#
  6. Title$="MacTutor, The Macintosh Programming Journal"
  7. OPEN "Sample RA File"  AS #1 LEN=64
  8.     FIELD #1,2 AS I$,4 AS S$,8 AS D$
  9.     FIELD #1,14 AS Dummy$,50 AS T$
  10.  
  11.     TEXTFACE(1)
  12.     PRINT "Our Variables are: Integer%=";Integer%;"Single!=";Single!
  13.     PRINT "Double#=";Double#
  14.     PRINT "Title$=";Title$
  15.     TEXTFACE(0)
  16. WRIT:    PRINT"We will now save them to record 1 (record length=64)."
  17.     LSET I$=MKI$(Integer%)
  18.     LSET S$=MKS$(Single!)
  19.     LSET D$=MKD$(Double#)
  20.     LSET T$=Title$
  21.     PUT #1,1
  22. CLOSE #1
  23.     PRINT"Now clear all variables... and print them:"
  24.     Integer%=0:Single!=0:Double#=0:Title$=""
  25.     TEXTFACE(1)
  26.     PRINT "Our Variables are: Integer%=";Integer%;"Single!=";Single!
  27.     PRINT "Double#=";Double#
  28.     PRINT "Title$=";Title$
  29.     TEXTFACE(0)
  30.     PRINT "Now read them back again..."
  31. OPEN "Sample RA File"  AS #1 LEN=64
  32.     FIELD #1,2 AS I$,4 AS S$,8 AS D$ , 50 AS T$
  33.     GET #1,1
  34.     LET Integer%=CVI(I$)
  35.     LET Single!=CVS(S$)
  36.     LET Double#=CVD(D$)
  37.     LET Title$=T$
  38.     PRINT"Now close the file and print them all..."
  39. CLOSE #1
  40. TEXTFACE(1)
  41. PRINT "Our Variables are: Integer%=";Integer%;"Single!=";Single!
  42. PRINT"Double#=";Double#
  43. PRINT "Title$=";Title$
  44. TEXTFACE(0)
  45. END
  46.